home *** CD-ROM | disk | FTP | other *** search
/ Revista CD Expert 31 / CD Expert nº 31 Unreal Mission Pack I.iso / PetWings / petwings.exe / PetWings.exe / RCDATA / 170 < prev    next >
Text File  |  1999-08-04  |  479b  |  45 lines
  1. //-------- WORM --------
  2.  
  3. SPEED 6
  4. SET_FRAME 0
  5.  
  6. LABEL 1
  7.  
  8. DIRECTION 30
  9. MOVE 24
  10.  
  11. GOSUB 2
  12.  
  13. DIRECTION 18
  14. MOVE 24
  15.  
  16. DIRECTION 18
  17. MOVE 24
  18.  
  19. GOSUB 2
  20.  
  21. DIRECTION 30
  22. MOVE 24
  23.  
  24. GOTO_LABEL 1
  25.  
  26. //---------- Fire Bullet
  27. LABEL 2
  28.   REPEAT 6
  29.     INCR_FRAME
  30.     STOP 2
  31.     INCR_FRAME
  32.     STOP 2
  33.   REPEAT_END
  34.  
  35.   SHOOT 3
  36.  
  37.   REPEAT 2
  38.     INCR_FRAME
  39.     STOP 2
  40.     INCR_FRAME
  41.     STOP 2
  42.   REPEAT_END
  43. RETURN
  44.  
  45. //========================= END OF FILE ==============